home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 1.iso / t_os / who / who.plt < prev   
Text File  |  1991-10-18  |  1KB  |  33 lines
  1. /* WHO.PLT: 1991.8.11 By GOOSE(MAF00070) */
  2. %Y {Yes};%N {No};%R {\n};%ABORT {stop};
  3. %who { [datafile,comfile,workfile]    /* ﾌｫﾗｰﾑにｱｸｾｽ中のﾒﾝﾊﾞｰのIDとﾊﾝﾄﾞﾙを表示｡
  4. **   datafile:IDとﾊﾝﾄﾞﾙが1行1対になっているﾌｧｲﾙ｡ﾌｫｰﾗﾑのﾒﾝﾊﾞｰ一覧をそのまま使っ
  5. **            ても良いが,会員番号と不要な空白を除去してあるとより高速｡
  6. **   comfile:本ﾊﾟｯｹｰｼﾞ中のsrchword.comをﾌﾙﾊﾟｽで指定｡
  7. **   workfile:作業用｡
  8. **   検索速度は1500人分から10人の検索(会員番号1,1500,他)で約7秒 */
  9.     dispoff(Y);command({del }|workfile);dispoff(N);
  10.     type({UST}|R);
  11.     wait(20,{Abort},R,);
  12.     %IMN {im(N)};
  13.     loop({
  14.         wait(20,{Abort},
  15.             {\n＞},IMN,{\n表示終了\n},IMN,{\nFORUM>},IMN,
  16.             R,{%temp @tail(@body(@laststr(128),,R),R);write(workfile,temp);im(Y)}
  17.         )
  18.     });
  19.     command(comfile|{ }|datafile|{ < }|workfile);
  20. };
  21.  
  22. %forum @input({ フォーラム名を入力して下さい｡});
  23. type({GO }|forum|R);
  24. loop({
  25.     wait(20,{ABORT},
  26.         {\n＞},{im({No})},
  27.         {\nFORUM>},{im({No})},
  28.         {\n続き (改行で表示},{type({\n});im({Yes})},
  29.         {\nmore>},{type({\n});im({Yes})})
  30. });
  31. who({D:\NEM\}|forum|{.MEM},{D:\NEM\NEW\SRCHWORD},{F:\NEM.TMP});
  32. setpf(12,{#D:\NEM\NEW\WHO.PLT});  /* PF12に割り当てる時 */
  33.